gusucode.com > 依悠ASP广告管理系统 v2.1 > 依悠ASP广告管理系统 v2.1\code\AD_Config.asp
<%
'===================================================================================
'依悠广告管理系统 V2.1 使用帮助
'
'帮助你把网站上的所有广告按照广告大小或位置进行分类管理，然后用本系统分配的固定Scrip代码调用设置广告,获取代码请点广告管理的预览。
'
'安装说明:
'
'1. 需要支持ASP和Access数据库的空间。
'
'2. 管理员登陆页面:index.asp,用户名为:admin，密码：admin,请安装后立即修改！
'
'3. 数据库连接地址:AD_Conn.asp
'
'4. 发现任何问题、缺陷或者有必要增加些功能请通知作者，作者会尽力改进，谢谢。
'
'5. 本软件系免费程序,提供给个人免费使用，如果用于商业用途请酌情付费支持，请不要修改作者版权。
'
'6. 如建设网站中遇到任何问题可在论坛发问，必定回复。
'
'作者：双鱼 论坛：http://www.yiuu.net QQ:125047083 E-MAIL:otutu@126.com
'
' 2008年5月8日
'==================================================================================
Dim sqlqname
sqlqname = "tt"
'config
Function finddir(filepath)
finddir=""
for i=1 to len(filepath)
if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
abc=i
exit for
end if
next
if abc <> 1 then
finddir=left(filepath,len(filepath)-abc+1)
end if
End Function
Dim ExtName,SavePath
ExtName = "jpg,gif,png,txt,rar,zip,doc" '上传文件允许的扩展名
SavePath = "./Upload" '上传文件的保存路径
Show = "广告位出租" '广告过期后显示的文字或者图片。
JSPath = FindDir(Request.Servervariables("URL"))&"AD/" 'JS存放的文件夹
ASPPath = JSPath&"index.asp" 'ASP存放的文件夹
DYPath = "AD_DY.asp" '非JS调用的的地址
'configinc
''config.
''Dim ExtName,SavePath
'' ExtName = "[$ExtName$]" '上传文件允许的扩展名
'' SavePath = "[$SavePath$]" '上传文件的保存路径
'' Show = "[$Show$]" '广告过期后显示的文字或者图片。
'' JSPath = "[$JSPath$]" 'JS存放的文件夹
'' ASPPath = JSPath&"index.asp" 'ASP存放的文件夹
'' DYPath = "[$DYPath$]" '非JS调用的的地址
''config.inc
Select Case Request.QueryString("Set")
Case "Config"
T = "基本设置"
head
Config
Case "GO"
ExtName = Request.Form("ExtName")
SavePath = Request.Form("SavePath")
Show = Request.Form("Show")
JSPath = Request.Form("JSPath")
DYPath = Request.Form("DYPath")
Files = OF("AD_Config.asp")
GO1 = Cut(Files,"''config.","''config.inc")
GO1 = Replace(GO1,"[$ExtName$]",ExtName)
GO1 = Replace(GO1,"[$SavePath$]",SavePath)
GO1 = Replace(GO1,"[$Show$]",Show)
GO1 = Replace(GO1,"[$JSPath$]",JSPath)
GO1 = Replace(GO1,"[$DYPath$]",DYPath)
GO1 = Replace(GO1,"''","")
GO2 = Cut(Files,"'config","'configinc")
Files = Replace(Files,GO2,GO1)
CR "AD_Config.asp",Files
Response.Write "<script>alert('编辑成功');document.location.href=""AD_Index.asp?Set=Config"";</script>"
End Select
Sub Config
%>
<TABLE width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#EBEBEB" bordercolor="#C2CEDA">
<form method="post" action="?Set=GO" name="form1">
<tr><th colspan="2">基本设置</th></tr>
<tr><td colspan="2">上传文件相关设置</td></tr>
<tr><td>文件类型：</td>
<td width="87%"><input name="ExtName" type="text" value="<%=ExtName%>" size="20"/>
<font color="#FF0000">上传文件允许的扩展名</font></td></tr>
<tr><td>保存路径：</td>
<td><input name="SavePath" type="text" value="<%=SavePath%>" size="20"/>
<font color="#FF0000">必须为 web 可访问到的目录, 结尾不加 "/", 相对目录务必以 "./" 开头</font></td></tr>
<tr><td colspan="2">广告相关设置</td></tr>
<tr><td>JS保存路径</td>
<td><input name="JSPath" type="text" value="<%=JSPath%>" size="20"/>
<font color="#FF0000">JS存放的文件夹，可以与程序目录不同，方便独立调用。必须是绝对路径，以"/"开头和结尾。</font></td></tr>
<tr><td>非JS路径：</td>
<td><input name="DYPath" value="<%=DYPath%>" type="text" size=20/>
<font color="#FF0000">非静态JS调用时，调用广告的文件，可自行更改文件名字。</font></td></tr>
<tr><td>过期显示：</td>
<td><input name="Show" value="<%=Show%>" type="text" size=20/>
<font color="#FF0000">广告过期后显示的文字或者图片。留空则显示空白。</font></td></tr>
<tr><td colspan="2"><div style="margin:auto; text-align:center;"><input type="submit" align="middle" value=" 确 定 "/> <input type="reset" align="middle" value=" 重 填 "/></div></td></tr>
</form>
</TABLE>
<%
End Sub
%>